svyset wustlid [pweight= mar2015wt1], vce(linearized) singleunit(missing)

/*** Read Me 

Use R&P US TAPS 2015

Generating coding for first question. Dummy for politicians responsible and dummy for global markets 
gen polresp=0 if xgroupab~=.
replace polresp=1 if ROSAS11S40==2 | ROSAS21S40==2 | ROSAS31S40==2 | ROSAS41S40==2
replace polresp=. if ROSAS11S40==-1 | ROSAS21S40==-1 | ROSAS31S40==-1 | ROSAS41S40==-1

gen globeresp=0 if xgroupab~=.
replace globeresp=1 if ROSAS11S40==3 | ROSAS21S40==3 | ROSAS31S40==3 | ROSAS41S40==3
replace globeresp=. if ROSAS11S40==-1 | ROSAS21S40==-1 | ROSAS31S40==-1 | ROSAS41S40==-1

gen businessresp=0 if xgroupab~=.
replace businessresp=1 if ROSAS11S40==1 | ROSAS21S40==1 | ROSAS31S40==1 | ROSAS41S40==1
replace businessresp=. if ROSAS11S40==-1 | ROSAS21S40==-1 | ROSAS31S40==-1 | ROSAS41S40==-1


Generating coding for second question. Dummy for politicians responsible and dummy for global markets. This isn't reported in the paper.

gen polresp2=0 if xgroupab~=.
replace polresp2=1 if ROSAS13S40==2 | ROSAS23S40==2 | ROSAS33S40==2 | ROSAS43S40==2
replace polresp2=. if ROSAS13S40==-1 | ROSAS23S40==-1 | ROSAS33S40==-1 | ROSAS43S40==-1

gen globeresp2=0 if xgroupab~=.
replace globeresp2=1 if ROSAS13S40==3 | ROSAS23S40==3 | ROSAS33S40==3 | ROSAS43S40==3
replace globeresp2=. if ROSAS13S40==-1 | ROSAS23S40==-1 | ROSAS33S40==-1 | ROSAS43S40==-1

gen creditOutcome=. if xgroupab~=.
replace creditOutcome=1 if ROSAS11S40==1 | ROSAS21S40==1 | ROSAS31S40==1 | ROSAS41S40==1
replace creditOutcome=2 if ROSAS11S40==2 | ROSAS21S40==2 | ROSAS31S40==2 | ROSAS41S40==2
replace creditOutcome=3 if ROSAS11S40==3 | ROSAS21S40==3 | ROSAS31S40==3 | ROSAS41S40==3
replace creditOutcome=. if ROSAS11S40==-1 | ROSAS21S40==-1 | ROSAS31S40==-1 | ROSAS41S40==-1 | ROSAS11S40==4 | ROSAS21S40==4 | ROSAS31S40==4 | ROSAS41S40==4 | ROSAS11S40==5 | ROSAS21S40==5 | ROSAS31S40==5 | ROSAS41S40==5

*****/

/* Panel 1 (politicians) */
svy: tab polresp xgroupab, col ci level(95)

/* Panel 2 (global markets) */
svy: tab globeresp xgroupab, col ci level(95)

/* Panel x (business) */
svy: tab businessresp xgroupab, col ci level(95)

/* NEW CONFIDENCE INTERVAL AROUND PERCENTAGE GRAPHS */
svy: tab creditOutcome xgroupab, col ci level(95)

/* Robustness Tests. These robustness tests include a second question asking about prospective evaluations.  */

svy: tab polresp2 xgroupab, col ci level(95)
svy: tab globeresp2 xgroupab, col ci level(95)
